home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aae.d64 / euchre 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  396 lines
  1. 10 REM **
  2. 20 REM ** EUCHRE:
  3. 30 REM ** PROGRAMMED BY HERB HASLER
  4. 40 REM **
  5. 100 PRINT"[147]":B$="                                       ":POKE53281,15
  6. 110 POKE 53280,15
  7. 120 FORI=1TO3:READIU(I):NEXT:D1=25:D2=15
  8. 130 DATA1,0,1
  9. 140 FORI=1TO8:READCD$(I):NEXT
  10. 150 FORI=1TO4:READST$(I):NEXT
  11. 160 FORI=1TO4:READTP$(I):NEXT
  12. 170 DEF FNR(X)=INT(RND(0)*X)
  13. 180 CL$(4)="[144]"
  14. 190 CL$(1)="[144]"
  15. 200 CL$(0)="[144]"
  16. 210 CL$(2)=""
  17. 220 CL$(3)=""
  18. 230 GOSUB1970
  19. 240 DECK$="000000000000000000000000":C=0:MD=0
  20. 250 DD=DD+1:IFDD=3THENDD=1
  21. 260 FORJ=1TO5:C$(J)="[166][166][166][166][166]":NEXT
  22. 270 FORI=1TO29STEP7
  23. 280 CR=FNR(6)+1:TS=FNR(4)+1:MC(I/7+1)=CR:MS(I/7+1)=TS
  24. 290 IFMID$(DECK$,CR+(TS-1)*6,1)="1"THEN280
  25. 300 DECK$=LEFT$(DECK$,CR-1+(TS-1)*6)+"1"+RIGHT$(DECK$,24-CR-(TS-1)*6)
  26. 310 PRINT""
  27. 320 GOSUB670
  28. 330 FORDL=1TO99:NEXT
  29. 340 NEXT
  30. 350 FORI=1TO29STEP7
  31. 360 CR=FNR(6)+1:TS=FNR(4)+1
  32. 370 C$(1)=CD$(CR)+"    "
  33. 380 C$(2)=ST$(TS)+"    "
  34. 390 C$(3)="     "
  35. 400 C$(4)="    "+ST$(TS)
  36. 410 C$(5)="    "+CD$(CR)
  37. 420 IFMID$(DECK$,CR+(TS-1)*6,1)="1"THEN360
  38. 430 PRINT"";
  39. 440 DECK$=LEFT$(DECK$,CR-1+(TS-1)*6)+"1"+RIGHT$(DECK$,24-CR-(TS-1)*6)
  40. 450 X1=TS:GOSUB670
  41. 460 FORDL=1TO99:NEXT
  42. 470 PC(I/7+1)=CR:PS(I/7+1)=TS
  43. 480 NEXT
  44. 490 PRINT""
  45. 500 CR=FNR(6)+1:TS=FNR(4)+1:XX=TS:XC=CR
  46. 510 C$(1)=CD$(CR)+"    "
  47. 520 C$(2)=ST$(TS)+"    "
  48. 530 C$(3)="     "
  49. 540 C$(4)="    "+ST$(TS)
  50. 550 C$(5)="    "+CD$(CR)
  51. 560 IFMID$(DECK$,CR+(TS-1)*6,1)="1"THEN500
  52. 570 DECK$=LEFT$(DECK$,CR-1+(TS-1)*6)+"1"+RIGHT$(DECK$,24-CR-(TS-1)*6)
  53. 580 PRINT"":I=9:X1=XX:GOSUB670
  54. 590 PRINT"[144]   ";NM$"-";YY;"[144]    SID-";MM
  55. 600 ONDDGOSUB930,1690
  56. 610 IFHI=1THEN1470
  57. 620 GOSUB850:IFJ=1THENPRINT"[147]":J=0:GOTO240
  58. 630 PRINT""CL$(TM);ST$(TM)
  59. 640 GOTO2860
  60. 650 DATA9,T,J,Q,K,A,L,R,"[193]","[211]","[218]","[216]"
  61. 660 DATA SPADES,HEARTS,DIAMONDS,CLUBS
  62. 670 :
  63. 680 PRINTTAB(I)"[213][192][192][192][192][192][201]"
  64. 690 FORDL=1TO10:NEXT
  65. 700 PRINTTAB(I)"[221]"CL$(X1);C$(1)"[221]"
  66. 710 FORDL=1TO10:NEXT
  67. 720 PRINTTAB(I)"[221]"CL$(X1);C$(2)"[221]"
  68. 730 FORDL=1TO10:NEXT
  69. 740 PRINTTAB(I)"[221]"CL$(X1);C$(3)"[221]"
  70. 750 FORDL=1TO10:NEXT
  71. 760 PRINTTAB(I)"[221]"CL$(X1);C$(4)"[221]"
  72. 770 FORDL=1TO10:NEXT
  73. 780 PRINTTAB(I)"[221]"CL$(X1);C$(5)"[221]"
  74. 790 FORDL=1TO10:NEXT
  75. 800 PRINTTAB(I)"[202][192][192][192][192][192][203]"
  76. 810 FORDL=1TO25:NEXT
  77. 820 IFC$(1)="[166][166][166][166][166]"THEN840
  78. 830 C=C+1:IFC<6THENPRINTTAB(I+4);C"[145]"
  79. 840 RETURN
  80. 850 B=ABS(4-TM)+1
  81. 860 FORI=1TO5
  82. 870 IFMS(I)=TMANDMC(I)=3THENMC(I)=8
  83. 880 IFPS(I)=TMANDPC(I)=3THENPC(I)=8
  84. 890 IFMS(I)=BANDMC(I)=3THENMC(I)=7:MS(I)=TM
  85. 900 IFPS(I)=BANDPC(I)=3THENPC(I)=7:PS(I)=TM
  86. 910 NEXT
  87. 920 RETURN
  88. 930 PRINT""
  89. 940 RR=0
  90. 950 GOSUB2620
  91. 960 IFRR=1THENTR=1:MD=0:TM=XX:GOTO1030
  92. 970 PRINT"  F1=UP"
  93. 980 PRINT" F3=DOWN"
  94. 990 GETG$:IFG$=""THEN 990
  95. 1000 IFG$="[133]"THENTM=XX:TR=2:MD=1:GOTO1030
  96. 1010 IFG$="[134]"THEN1260
  97. 1020 GOTO990
  98. 1030 PRINT"[145][145][145]  CARD "
  99. 1040 PRINT"  DOWN ?"
  100. 1050 GETG$:IFG$=""THEN 1050
  101. 1060 PL=VAL(G$)
  102. 1070 IFPL>0ANDPL<6THEN 1090
  103. 1080 GOTO1050
  104. 1090 PRINT""
  105. 1100 FORI=1TO7
  106. 1110 PRINTTAB((PL-1)*7+1)"       "
  107. 1120 FORDL=1TO25:NEXT
  108. 1130 NEXT
  109. 1140 PRINT""
  110. 1150 FORI=1TO7
  111. 1160 PRINTTAB(9)"       "
  112. 1170 FORDL=1TO25:NEXT
  113. 1180 NEXT
  114. 1190 PC(PL)=XC:PS(PL)=XX
  115. 1200 PRINT""
  116. 1210 I=(PL-1)*7+1
  117. 1220 CR=XC:TS=XX
  118. 1230 X1=TS:GOSUB670
  119. 1240 GOSUB2790
  120. 1250 RETURN
  121. 1260 FORI=1TO4:VV(I)=0:S(I)=I:NEXT:TM=0:MX=0:GN=0
  122. 1270 FORI=1TO5
  123. 1280 MX=MC(I)
  124. 1290 IFMC(I)=3THENMX=8
  125. 1300 VV(MS(I))=VV(MS(I))+MX
  126. 1310 IFGN=0THENGOSUB1550
  127. 1320 NEXT
  128. 1330 FORI=1TO3
  129. 1340 Y=0
  130. 1350 IF(VV(I))>(VV(I+1))THENV=VV(I):VV(I)=VV(I+1):VV(I+1)=V:Y=1:S=S(I):S(I)=S(I+1)
  131. 1360 IFY=1THENS(I+1)=S
  132. 1370 IFY=1THEN1330
  133. 1380 NEXT
  134. 1390 FORI=1TO5:IFMC(I)=6ANDMS(I)<>S(4)THENVV(4)=VV(4)+3
  135. 1400 IFMC(I)=5ANDMS(I)<>S(4)THENVV(4)=VV(4)+1
  136. 1410 NEXT
  137. 1420 IFVV(4)>13THENTM=S(4)
  138. 1430 IFTM=XXTHENTM=0
  139. 1440 IFTM=0THEN1460
  140. 1450 GOSUB2790:TR=1:MD=0:RETURN
  141. 1460 HI=0
  142. 1470 PRINT"":PRINTB$
  143. 1480 PRINT" I PASS, YOU MAKE IT":PRINTB$
  144. 1490 PRINT"F1 = SPADES    F3 = HEARTS"
  145. 1500 PRINT"F5 = DIAMONDS  F7 = CLUBS"
  146. 1510 PRINTB$
  147. 1520 PRINTB$
  148. 1530 GOSUB1600
  149. 1540 GOTO620
  150. 1550 B=ABS(4-MS(I))+1
  151. 1560 FORJ=1TO5
  152. 1570 IF(MS(J)=B)AND(MC(J)=3)THENMX=MX+7:GN=1
  153. 1580 NEXT
  154. 1590 RETURN
  155. 1600 GETG$:IFG$=""THEN 1600
  156. 1610 IFG$="[133]"THENTM=1:GOTO1660
  157. 1620 IFG$="[134]"THENTM=2:GOTO1660
  158. 1630 IFG$="[135]"THENTM=3:GOTO1660
  159. 1640 IFG$="[136]"THENTM=4:GOTO1660
  160. 1650 GOTO1600
  161. 1660 IFHI=1ANDTM=XXTHEN1600
  162. 1670 HI=0:TR=2:MD=1:GOSUB2790
  163. 1680 RETURN
  164. 1690 PRINT"":HI=0
  165. 1700 PRINT" F1=ORDER"
  166. 1710 PRINT" F3=PASS"
  167. 1720 GETG$:IFG$=""THEN 1720
  168. 1730 IFG$="[133]"THENTM=XX:TR=2:MD=1:GOTO1890
  169. 1740 IFG$="[134]"THEN1760
  170. 1750 GOTO1720
  171. 1760 LC=XC
  172. 1770 IFXC=3THENXC=8
  173. 1780 B=ABS(4-XX)+1
  174. 1790 FORI=1TO5
  175. 1800 IFMS(I)=XXANDMC(I)=3THENXC=XC+8:GOTO1830
  176. 1810 IFMS(I)=XXTHENXC=XC+MC(I)
  177. 1820 IFMS(I)=BANDMC(I)=3THENXC=XC+7
  178. 1830 NEXT
  179. 1840 FORI=1TO5:IFMC(I)=6ANDMS(I)<>XXTHENXC=XC+3
  180. 1850 IFMC(I)=5ANDMS(I)<>XXTHENXC=XC+1
  181. 1860 NEXT
  182. 1870 IFXC>13THENTR=1:MD=0:TM=XX:XC=LC:GOTO1890
  183. 1880 GOTO1950
  184. 1890 CA=7
  185. 1900 FORI=1TO5:IFMC(I)<XCANDMS(I)<>XXTHENCA=MC(I):CT=I
  186. 1910 NEXTI
  187. 1920 IFCA=7THENCT=1
  188. 1930 MC(CT)=XC:MS(CT)=TS
  189. 1940 GOSUB2790:GOTO1960
  190. 1950 HI=1:RETURN
  191. 1960 RETURN
  192. 1970 :
  193. 1980 GOSUB2210
  194. 1990 PRINT"PLEASE ENTER YOUR NAME"
  195. 2000 PRINT"(UP TO 10 LETTERS)"
  196. 2010 INPUTNM$
  197. 2020 IFLEN(NM$)>10THENNM$="  APPONENT"
  198. 2030 IFNM$=""THENNM$=" SID"
  199. 2040 PRINT"[147]THANK YOU ";NM$
  200. 2050 PRINT" HIT RETURN WHEN YOU ARE READY TO BEGIN"
  201. 2060 GETG$:IFG$=""THEN 2060
  202. 2070 IFASC(G$)=13THENPRINT"[147]":RETURN
  203. 2080 GOTO2060
  204. 2090 PRINT""
  205. 2100 FORI=1TO7:PRINTTAB((CT-1)*7+1)"       "
  206. 2110 NEXT
  207. 2120 C$(1)=CD$(MC(CT))+"    "
  208. 2130 C$(2)=ST$(MS(CT))+"    "
  209. 2140 C$(3)="     "
  210. 2150 C$(4)="    "+ST$(MS(CT))
  211. 2160 C$(5)="    "+CD$(MC(CT))
  212. 2170 PRINT""
  213. 2180 FORI=1TO7:PRINTB$:NEXT:I=7
  214. 2190 PRINT"":X1=MS(CT):GOSUB670
  215. 2200 RETURN
  216. 2210 PRINT"[147]"
  217. 2220 PRINT" [213][192][192][192][192][201][213][192][201] [213][192][201][213][192][192][192][192][201][213][192][201] [213][192][201][213][192][192][192][192][201][213][192][192][192][192][201]"
  218. 2230 PRINT" [221]    [221][221] [221] [221] [221][221]    [221][221] [221] [221] [221][221]    [221][221]    [221]
  219. 2240 [153]" (null) (null)TANTAN(null)(null) (null) (null) (null)(null) (null)TANTAN(null)(null) (null) (null) (null)(null) (null)RIGHT$ (null)(null) (null)TANTAN(null)
  220. 2250 PRINT" [221] [221]   [221] [221] [221] [221][221] [221]  [160][221] [221] [221] [221][221] [202][203] [221][221] [221]
  221. 2260 [153]" (null) MID$TANRIGHT$ (null) (null) (null) (null)(null) (null)   (null) MID$TAN(null) (null)(null)   (null)(null)(null) MID$TANRIGHT$
  222. 2270 PRINT" [221]   [221] [221] [221] [221] [221][221] [221]   [221]     [221][221] [213][201][202][201][221]   [221]
  223. 2280 [153]" (null) (null)TAN(null) (null) (null) (null) (null)(null) (null)   (null) (null)TANRIGHT$ (null)(null) (null)(null) (null)(null) (null)TAN(null)
  224. 2290 PRINT" [221] [221]   [221] [221] [221] [221][221] [221]   [221] [221] [221] [221][221] [221][221] [221][221] [221]
  225. 2300 [153]" (null) MID$TANTANRIGHT$(null) MID$TAN(null) (null)(null) MID$TANTANRIGHT$(null) (null) (null) (null)(null) (null)(null) (null)(null) MID$TANTANRIGHT$
  226. 2310 PRINT" [221]    [221][221]     [221][221]    [221][221] [221] [221] [221][221] [221][221] [221][221]    [221]
  227. 2320 [153]" MID$TANTANTANTAN(null)MID$TANTANTANTANTAN(null)MID$TANTANTANTAN(null)MID$TAN(null) MID$TAN(null)MID$TAN(null)MID$TAN(null)MID$TANTANTANTAN(null)
  228. 2330 PRINT"     PROGRAMMED BY H. HASLER"
  229. 2340 FORI=54272TO54292:POKEI,0:NEXT
  230. 2350 POKE54296,3
  231. 2360 POKE54277,1:POKE54284,1:POKE54291,1
  232. 2370 POKE54278,255:POKE54285,255:POKE54290,255
  233. 2380 POKE54273,4:POKE54272,48
  234. 2390 POKE54280,4:POKE54279,48+5
  235. 2400 POKE54287,4:POKE54286,48+10
  236. 2410 POKE54276,33:POKE54283,33:POKE54290,33
  237. 2420 FORDL=1TO1000:NEXT
  238. 2430 POKE54276,32:POKE54283,32:POKE54290,32
  239. 2440 :
  240. 2450 PRINT"DO YOU WISH TO SEE"
  241. 2460 PRINT"INSTUCTIONS...(Y/N)"
  242. 2470 GETG$:IFG$=""THEN  2470
  243. 2480 IFG$="N"THENRETURN
  244. 2490 IFG$="Y"THEN2510
  245. 2500 GOTO2470
  246. 2510 :
  247. 2520 PRINT"[147]"
  248. 2530 PRINT" THIS GAME IS PLAYED JUST LIKE"
  249. 2540 PRINT"ORDINARY EUCHRE, WITH A FEW MINOR"
  250. 2550 PRINT"CHANGES..."
  251. 2560 PRINT"1) THE PERSON WHO DOES NOT DECIDE TRUMP"
  252. 2570 PRINT"   PLAYS FIRST."
  253. 2580 PRINT"2) IF THE COMPUTER HAS A CHANCE TO"
  254. 2590 PRINT"   DECIDE TRUMP AND DOES NOT, THEN YOU"
  255. 2600 PRINT"   MUST DECIDE."
  256. 2610 RETURN
  257. 2620 :
  258. 2630 LC=XC
  259. 2640 XC=0:RR=0
  260. 2650 B=ABS(4-XX)+1
  261. 2660 FORI=1TO5
  262. 2670 IFMS(I)=XXANDMC(I)=3THENXC=XC+8:GOTO2700
  263. 2680 IFMS(I)=XXTHENXC=XC+MC(I)
  264. 2690 IFMS(I)=BANDMC(I)=3THENXC=XC+7
  265. 2700 NEXT
  266. 2710 FORI=1TO5:IFMC(I)=6ANDMS(I)<>XXTHENXC=XC+3
  267. 2720 IFMC(I)=5ANDMS(I)<>XXTHENXC=XC+1
  268. 2730 NEXT
  269. 2740 IFXC<15THENXC=LC:RETURN
  270. 2750 TM=XX
  271. 2760 PRINT"  I":PRINT" ORDER":TR=1:MD=0:POKE54273,34:POKE54272,75
  272. 2770 POKE54276,33:FORDL=1TO100:NEXT:POKE54276,32:FORDL=1TO1000:NEXT
  273. 2780 RR=1:XC=LC:RETURN
  274. 2790 PRINT""
  275. 2800 FORI=1TO7:PRINTB$:NEXT
  276. 2810 PRINT"[145][145][145][145][145][145] ";TP$(TM)" ARE TRUMP"
  277. 2820 IFMD=1THENPRINT" MY LEAD....":GOTO2840
  278. 2830 PRINT" YOUR LEAD...."
  279. 2840 FORDL=1TO1000:NEXT
  280. 2850 RETURN
  281. 2860 ONTRGOTO2870,3320
  282. 2870 GETG$:IFG$=""THEN 2870
  283. 2880 CC=VAL(G$)
  284. 2890 IFCC>0ANDCC<6THEN 2910
  285. 2900 GOTO2870
  286. 2910 IFPC(CC)=0THENPRINT" THAT[157][157][157][157]CARD[157][157][157]IS[157][157][157]GONE":GOTO2870
  287. 2920 PRINT"":FORI=1TO7:PRINTB$:NEXT
  288. 2930 PRINT""
  289. 2940 FORI=1TO7
  290. 2950 PRINTTAB((CC-1)*7+1)"       "
  291. 2960 NEXT
  292. 2970 C$(1)=CD$(PC(CC))+"    "
  293. 2980 C$(2)=ST$(PS(CC))+"    "
  294. 2990 C$(3)="     "
  295. 3000 C$(4)="    "+ST$(PS(CC))
  296. 3010 C$(5)="    "+CD$(PC(CC))
  297. 3020 PRINT"":I=7:X1=PS(CC):GOSUB670
  298. 3030 CA=0:CT=0
  299. 3040 FORI=1TO5
  300. 3050 IFMS(I)=PS(CC)ANDMC(I)>CATHENCA=MC(I):CT=I
  301. 3060 NEXT
  302. 3070 IFCA=0THEN3210
  303. 3080 IFCA>PC(CC)THEN3130
  304. 3090 CA=6
  305. 3100 FORI=1TO5
  306. 3110 IFMS(I)=PS(CC)ANDMC(I)<CAANDMC(I)>0THENCA=MC(I):CT=I
  307. 3120 NEXT
  308. 3130 C$(1)=CD$(MC(CT))+"    "
  309. 3140 C$(2)=ST$(MS(CT))+"    "
  310. 3150 C$(3)="     "
  311. 3160 C$(4)="    "+ST$(MS(CT))
  312. 3170 C$(5)="    "+CD$(MC(CT))
  313. 3180 PRINT"":FORI=1TO7:PRINTTAB((CT-1)*7+1)"       ":NEXT
  314. 3190 PRINT"":I=18:X1=MS(CT):GOSUB670
  315. 3200 GOSUB3710:GOTO620
  316. 3210 CA=9
  317. 3220 FORI=1TO5
  318. 3230 IF(MS(I)=TM)AND(MC(I)<CA)ANDMC(I)>0THENCA=MC(I):CT=I
  319. 3240 NEXT
  320. 3250 IFCA=9THEN3270
  321. 3260 GOTO3130
  322. 3270 CA=9
  323. 3280 FORI=1TO5
  324. 3290 IFMC(I)<CAANDMC(I)>0THENCA=MC(I):CT=I
  325. 3300 NEXT
  326. 3310 GOTO3130
  327. 3320 IFMD=0THEN3440
  328. 3330 CA=0
  329. 3340 FORI=1TO5
  330. 3350 IFMC(I)>CAANDMS(I)<>TMTHENCA=MC(I):CT=I
  331. 3360 NEXT
  332. 3370 IFCA=0THEN3390
  333. 3380 GOTO3500
  334. 3390 CA=0
  335. 3400 FORI=1TO5
  336. 3410 IFMC(I)>CATHENCA=MC(I):CT=I
  337. 3420 NEXT
  338. 3430 GOTO 3500
  339. 3440 CA=0
  340. 3450 FORI=1TO5
  341. 3460 IFMC(I)>CAANDMS(I)=TMTHENCA=MC(I):CT=I
  342. 3470 NEXT
  343. 3480 IFCA=0THEN3340
  344. 3490 GOTO3500
  345. 3500 GOSUB 2090
  346. 3510 GETG$:IFG$=""THEN 3510
  347. 3520 CC=VAL(G$)
  348. 3530 IFCC>0ANDCC<6THEN 3550
  349. 3540 GOTO3500
  350. 3550 IFPC(CC)=0THENPRINT" THAT[157][157][157][157]CARD[157][157][157]IS[157][157][157]GONE":GOTO3510
  351. 3560 IFPS(CC)=MS(CT)THEN3590
  352. 3570 FORI=1TO5:IFPS(I)=MS(CT)THENPRINT"   NO[157][157][157][157][157]RENAGING":GOTO3510
  353. 3580 NEXT
  354. 3590 PRINT""
  355. 3600 FORI=1TO7
  356. 3610 PRINTTAB((CC-1)*7+1)"       "
  357. 3620 NEXT
  358. 3630 C$(1)=CD$(PC(CC))+"    "
  359. 3640 C$(2)=ST$(PS(CC))+"    "
  360. 3650 C$(3)="     "
  361. 3660 C$(4)="    "+ST$(PS(CC))
  362. 3670 C$(5)="    "+CD$(PC(CC))
  363. 3680 PRINT"":I=18:X1=PS(CC):GOSUB670
  364. 3690 GOSUB3710
  365. 3700 GOTO620
  366. 3710 PRINT"":FORI=1TO7:PRINT"      ":NEXT
  367. 3720 IFMS(CT)=PS(CC)THEN3770
  368. 3730 IFMS(CT)=TMTHENPRINT"  MY[157][157][157]TRICK":VC=VC+1:TR=2:GOTO3790
  369. 3740 IFTR=2ANDPS(CC)<>TMTHENMS(CT)=TM:GOTO3730
  370. 3750 PRINT" YOUR[157][157][157][157]TRICK":YR=YR+1:TR=1
  371. 3760 GOTO3790
  372. 3770 IFMC(CT)>PC(CC)THENPRINT"  MY[157][157][157]TRICK":TR=2:VC=VC+1:GOTO3790
  373. 3780 PRINT" YOUR[157][157][157][157]TRICK":YR=YR+1:TR=1
  374. 3790 PC(CC)=0:PS(CC)=0
  375. 3800 IFYR>0THENPOKE1662+YR*40,81
  376. 3810 IFVC>0THENPOKE1102+VC*40,81
  377. 3820 MC(CT)=0:MS(CT)=0
  378. 3830 IFVC+YR<5THEN4000
  379. 3840 FORDL=1TO500:NEXT
  380. 3850 PRINT"":FORI=1TO7:PRINT"       ":NEXT
  381. 3860 IFVC>YRTHENPRINT"  MY[157][157][157]POINT":MM=MM+1:P=1:IFVC=5THENMM=MM+1
  382. 3870 IFP=1ANDMD=1THENMM=MM+1:GOTO3910
  383. 3880 IFP=1THEN3910
  384. 3890 PRINT" YOUR[157][157][157][157]POINT":YY=YY+1:P=1:IFYR=5THENYY=YY+1
  385. 3900 IFP=1ANDMD=0THENYY=YY+1:GOTO3910
  386. 3910 P=0:VC=0:YR=0:J=1
  387. 3920 FORDL=1TO2000:NEXT
  388. 3930 IFMM>9THENPRINT"[147]SID WINS...";MM"TO"YY:YF=YF+1:GOTO3960
  389. 3940 IFYY>9THENPRINT"[147]"NM$" WINS...";YY"TO";MM:FY=FY+1:GOTO3960
  390. 3950 GOTO4000
  391. 3960 PRINT"SID-";YF:PRINTNM$;FY
  392. 3970 PRINT"DO YOU WISH A REMATCH"
  393. 3980 INPUTA$:IFA$="Y"THENMM=0:YY=0:GOTO4000
  394. 3990 PRINT"OK":POKE53281,15:END
  395. 4000 RETURN
  396.